11 REM(null)
49 REM(null)
99 REM =================================
100 REM(null)
102 REM ORIGINAL PROGRAM WRITTEN FOR
104 REM TRS 80 MODEL 111.
106 REM(null)
108 REM CONVERSION AND UPGRADING DONE
110 REM BY J J URSANO
112 REM SPRINGDALE PARK ROAD
113 REM(null)
114 REM BRACEBRIDGE, ONTARIO (84/04/28)
115 REM ================================
119 REM(null)
120 POKE 53280,8:POKE53281,15:PRINT CHR$(31)
125 PRINT CHR$(147)
130 PRINT""
150 A$="CINQUAIN POETRY"
159 REM(null)
160 A$="                                                      "+A$
165 FOR J=1 TO LEN(A$)
170 PRINT MID$(A$,LEN(A$)-J+1);"[145]"
175 FOR ZZ=1 TO 50: NEXT ZZ: NEXT J
180 FOR DELAY=1 TO 2000:NEXT DELAY
185 PRINT"":PRINTCHR$(30)
190 PRINTTAB(16)"BY J URSANO"
195 FOR DELAY =1 TO 1000: NEXT DELAY
196 PRINT CHR$(147):PRINTCHR$(129)
200 REM(null)
205 POKE53280,8:POKE53281,1:PRINTCHR$(31)
210 PRINTTAB(6);"A CINQUAIN[146] IS A FIVE LINE POEM."
211 REM(null)
220 PRINTTAB(7);"HERE IS ONE ABOUT A COMPUTER."
230 PRINTTAB(8)"PRESS SPACE BAR[146] TO GO ON."
240 GET DELAY$:IF DELAY$="" THEN 240
249 REM(null)
250 PRINTCHR$(147)
260 PRINT""
270 PRINTTAB(16)"COMPUTER"
274 REM(null)
275 PRINTTAB(15)"BUSY,FAST"
280 PRINTTAB(6)"FLASHING,COUNTING,TEACHING"
290 PRINTTAB(6)"LOVES TO WORK WITH CHILDREN"
300 PRINTTAB(16)"MACHINE"
310 PRINTTAB(8)"PRESS SPACE BAR[146] TO GO ON.
320 [161] DELAY$:[139] DELAY$[178]""[167]320
330 [153][199](147)
400 [153][163]2)"NOW I'LL HELP YOU WRITE YOUR OWN POEM!"
410 [153][163]5)"IT CAN BE ABOUT YOU,A PET,NATURE OR ANYTHING ELSE."
420 [153][163]5)"WRITING CINQUAINS IS EASY!
425 REM(null)
430 PRINTTAB(2)"JUST TYPE IN THE WORDS THAT I ASK FOR."
440 PRINTTAB(5)"WHEN YOU ARE DONE I WILL PRINT YOUR POEM!"
450 PRINTTAB(8)"PRESS SPACE BAR[146] TO GO ON."
460 GET DELAY$:IF DELAY$="" THEN 460
470 REM
500 REM **************************
510 REM(null)
540 REM
549 REM (null)
550 REM LIST OF VARIABLES
555 REM(null)
560 REM N1$=FIRST NOUN
570 REM A1$=FIRST ADJECTIVE
580 REM A2$=SECOND ADJECTIVE
590 REM A3$=THIRD ADJECTIVE
599 REM(null)
600 REM V1$=THE FIRST 'ING' VERB
610 REM V2$=THE SECOND'ING' VERB
620 REM V3$=THE THIRD 'ING' VERB
630 REM V4$=THE ACTION VERB
640 REM P$ =THE SHORT PHRASE
650 REM N2$=THE SECOND NOUN
660 REM
700 REM(null)
800 REM **************************
805 POKE 53280,7:POKE 53281,1:PRINTCHR$(31) : PRINT CHR$(147)
810 PRINT"A NOUN IS A PERSON PLACE OR THING."
820 PRINT"TYPE A NOUN[146].":GOSUB 1150:INPUT N1$
825 PRINTCHR$(31)
830 PRINT"ADJECTIVES ARE WORDS THAT DESCRIBE"
835 PRINT"NOUNS."
840 PRINT "TYPE AN ADJECTIVE[146] THAT DESCRIBES ";N1$;"."
850 GOSUB 1150:INPUT A1$
855 PRINTCHR$(31)
860 PRINT"TYPE AN OTHER ADJECTIVE[146] THAT DESCRIBES "
865 PRINT N1$;"."
870 GOSUB 1150:INPUT A2$
880 PRINTCHR$(31)
890 PRINT"TYPE A VERB[146] THAT ENDS IN 'ING' SUCH AS "
895 PRINT"JUMPING,SINGING AND LAUGHING."
900 GOSUB 1150:INPUT V1$
905 PRINTCHR$(31)
910 PRINT"TYPE ANOTHER VERB[146] THAT ENDS IN 'ING'"
920 GOSUB 1150:INPUT V2$
925 PRINTCHR$(31)
930 PRINT"AND ONE MORE VERB[146] THAT ENDS IN 'ING'"
935 REM (null)
940 GOSUB 1150:INPUT V3$
945 PRINTCHR$(147):PRINT""
948 PRINTCHR$(31)
950 PRINT"ACTION VERBS TELL WHAT NOUNS DO."
960 PRINT"KICKS,DIVES,SLIDES ARE ACTION VERBS."
970 PRINT"TYPE AN ACTION VERB[146] THAT ENDS IN 'S' AND THAT ";N1$;" CAN DO."
980 GOSUB 1150:INPUT V4$
985 PRINTCHR$(31)
990 PRINT"TYPE A PHRASE[146]THAT STARTS WITH ";V4$
995 PRINT"AND TELLS ABOUT ";N1$;"."
1000 GOSUB 1150: INPUT P$
1005 REM(null)
1010 PRINT CHR$(31)
1099 REM(null)
1100 PRINT"MACHINE IS A NOUN THAT STANDS"
1105 PRINT"FOR COMPUTER."
1110 PRINT"TYPE A NOUN[146] THAT STANDS FOR ";N1$;"."
1120 GOSUB 1150: INPUT N2$ :GOTO 1200
1150 PRINTCHR$(156):RETURN
1200 REM
1210 FOR ZZ=1 TO 1000:NEXT ZZ
1220 PRINT CHR$(147)
1300 PRINTTAB(3)"A SPECIAL CINQUAIN ABOUT ";:PRINTCHR$(150) N1$
1301 REM(null)
1310 PRINT"":PRINT"[156]"
1350 PRINTTAB((40-LEN(N1$))/2)N1$
1360 PRINT""
1370 PRINTTAB((40-LEN(A1$+A2$))/2)A1$;" ";A2$
1375 PRINT""
1380 PRINTTAB((40-LEN(V1$ +V2$+V3$))/2)V1$;" ";V2$;" ";V3$
1385 PRINT""
1389 PRINTTAB((40-LEN(P$))/2)P$
1390 REM PRINTTAB((40-LEN(V4$ +P$))/2)V4$;" ";P$
1395 PRINT""
1399 REM (null)
1400 PRINTTAB((40-LEN(N2$))/2)N2$
1410 PRINTCHR$(144)
1499 REM(null)
1500 PRINT"WOULD YOU LIKE TO WRITE ANOTHER CINQUAIN?(Y/N)": INPUT REPLY$
1601 REM(null)
1700 IF LEFT$(REPLY$,1)="Y" THEN800
1800 PRINTCHR$(147)
2000 POKE 53280,7:POKE53281,12
2001 REM(null)
2100 PRINTTAB(17)"GOOD-BYE!!"
2150 FOR PAUSE=1TO3500:NEXT PAUSE
2200 PRINTCHR$(147)